
# Table_4.R
# Aim: to reproduce Table 4 of Atsusaka and Holbrook (2026)

library(tidyverse)

dt <- read_csv("archive-election.csv")

# 1. Missing data
print("1. Missing data check distribution")
print(prop.table(table(dt$missing_data_check)))

# 2. Single-winner
print("2. Single-winner check distribution")
print(prop.table(table(dt$single_winner_check)))

# 3. Sequential round numbers
print("3. Sequential rounds check distribution")
print(prop.table(table(dt$sequential_rounds_check)))

# 4. Monotonicity
print("4. Monotonicity check distribution")
print(prop.table(table(dt$monotone_votes_check)))

# 5. Non-positive transfer sum
print("5. Transfer sum check distribution")
print(prop.table(table(dt$non_positive_transfer_check)))

# 6. Round totals match candidate sums
print("6. Round totals match check distribution")
print(prop.table(table(dt$round_totals_match_check)))
